home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / rhstdlib.arc / STRCMPL.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-10-20  |  2.0 KB  |  106 lines
  1. stdlib        segment    para public 'slcode'
  2.         assume    cs:stdlib
  3. ;
  4. ;
  5. ; strcmpl- Compares the string pointed at by es:si to the string following
  6. ;       the call instruction.
  7. ;
  8. ; inputs:
  9. ;
  10. ;    es:di-    First string (The string to compare)
  11. ;    cs:rtn-    Second string (The string to compare against)
  12. ;
  13. ;    e.g.,
  14. ;        "if (es:si < cs:rtn) then ..."
  15. ;
  16. ; returns: 
  17. ;
  18. ;    cx- index into strings where they differ (points at the zero byte
  19. ;        if the two strings are equal).
  20. ; 
  21. ;    Condition codes set according to the string comparison.  You should
  22. ;    use the unsigned branches (ja, jb, je, etc.) after calling this
  23. ;    routine.
  24. ;
  25.         public    sl_strcmpl
  26. ;
  27. sl_strcmpl    proc    far
  28.         push    bp
  29.         mov    bp, sp
  30.         push    es
  31.         push    ds
  32.         push    cx
  33.         push    si
  34.         push    di
  35.         mov    ax, es
  36.         mov    ds, ax
  37.         mov    si, di
  38.         les    di, 2[bp]
  39. ;
  40. ; In order to preserve the direction flag across this call, we have to
  41. ; test whether or not it is set here and execute two completely separate
  42. ; pieces of code (so we know which state to exit in.  Unfortunately, we
  43. ; cannot use pushf to preserve this flag since we need to return status
  44. ; info in the other flags.
  45. ;
  46.         pushf
  47.         pop    ax
  48.         test    ah, 4        ;Test direction bit.
  49.         jnz    DirIsSet
  50. ;
  51. ; Compute the length of the string following the CALL instruction:
  52. ;
  53.         cld
  54.         mov    al, 0
  55.         mov    cx, 0ffffh
  56.     repne    scasb
  57.         xchg    di, 2[bp]    ;Save as new return address.
  58.         neg    cx
  59.         dec    cx        ;Length of string.
  60.         mov    ax, cx
  61.         repe    cmpsb            ;Compare the two strings.
  62. ;
  63.         pushf
  64.         sub    ax, cx
  65.         dec    ax
  66.                 popf
  67.         pop    di
  68.         pop    si
  69.         pop    cx
  70.         pop    ds
  71.         pop    es
  72.         pop    bp
  73.         ret            ;Return with direction flag clear.
  74. ;
  75. ;
  76. DirIsSet:    cld
  77.         mov    al, 0
  78.         mov    cx, 0ffffh
  79.     repne    scasb
  80.         xchg    di, 2[bp]    ;Save as new return address.
  81.         neg    cx
  82.         dec    cx        ;Length of string.
  83.         mov    ax, cx
  84.         repe    cmpsb            ;Compare the two strings.
  85. ;
  86.         pushf
  87.         sub    ax, cx
  88.         dec    ax
  89.         popf
  90.         pop    di
  91.         pop    si
  92.         pop    cx
  93.         pop    ds
  94.         pop    es
  95.         pop    bp
  96.         std
  97.         ret            ;Return with direction flag set.
  98. ;
  99. ;
  100. ;
  101. sl_strcmpl    endp
  102. ;
  103. ;
  104. stdlib        ends
  105.         end
  106.